From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Fri, 16 May 2008 09:30:17 +0000 (+0000)
Subject: Clean up after granbbing CVS/Root info.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~21610
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=09eabf0fa5a289a2edc68b3455d8579ae79bb40b;p=emacs.git

Clean up after granbbing CVS/Root info.
---

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 1e9788487bc..40f601a7738 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -927,7 +927,7 @@ state."
 	     (save-excursion 
 	       (set-buffer (find-file-noselect "CVS/Root" t))
 	       (and (looking-at ":ext:") (delete-char 5))
-	       (buffer-string))
+	       (prog1 (buffer-string) (not-modified) (kill-buffer nil)))
 	   nil)))
     (concat
      ;; FIXME: see how PCL-CVS gets the data to print all these